home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / FALCON / MAGI / MAKEBOOT.S < prev    next >
Encoding:
Text File  |  1993-05-05  |  864 b   |  61 lines
  1. ; Installe boot secteur
  2.     opt    x+
  3.  
  4.     move.l    #FinPrg,d0
  5.     sub.l    #Prg,d0
  6.     cmp.w    #452,d0
  7.     bgt    Fin
  8.     
  9.     move.w    #1,-(sp)
  10.     move.w    #0,-(sp)
  11.     move.w    #0,-(sp)
  12.     move.w    #1,-(sp)
  13.     move.w    #0,-(sp)
  14.     clr.l    -(sp)
  15.     move.l    #buffer,-(sp)
  16.     move.w    #8,-(sp)
  17.     trap    #14
  18.     lea    20(sp),sp
  19.     
  20.     lea    buffer,a0
  21.     move.w    #$601c,(a0)
  22.     move.w    #'  ',2(a0)
  23.     move.l    #'MAGI',4(a0)
  24.     
  25.     lea    Prg,a1
  26.     lea    FinPrg,a2
  27.     lea    30(a0),a3
  28. Bcl    move.b    (a1)+,(a3)+
  29.     cmp.l    a1,a2
  30.     bhi    Bcl
  31.  
  32.     clr.w    510(a0)
  33.     lea    buffer,a1
  34.     move.w    #$ff,d7
  35.     moveq    #0,d0
  36. checksum
  37.     add.w    (a1)+,d0
  38.     dbf    d7,checksum
  39.     move.w    #$1234,d1
  40.     sub.w    d0,d1
  41.     move.w    d1,510(a0)
  42.  
  43.     move.w    #1,-(sp)
  44.     move.w    #0,-(sp)    
  45.     move.w    #0,-(sp)    
  46.     move.w    #1,-(sp)    
  47.     move.w    #0,-(sp)    
  48.     clr.l    -(sp)
  49.     move.l    #buffer,-(sp)
  50.     move.w    #9,-(sp)
  51.     trap    #14
  52.     lea    20(sp),sp
  53.     
  54. Fin    clr.w    -(sp)
  55.     trap    #1
  56.     
  57.     section    BSS
  58. buffer    ds.b    512
  59.  
  60.     
  61.